﻿Public Class FrmAbout

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Todaycount.NGCount = TextBox1.Text
        Todaycount.SCount = TextBox2.Text
        FrmMain.TextBox2.Text = TextBox1.Text
        FrmMain.TextBox3.Text = TextBox2.Text

        FrmMain.TextBox5.Text = TextBox5.Text
        Todaycount2.SuctionCount = 0

        FrmMain.TextBox_PCSFailed.Text = TextBox_PCSFailed.Text
        Todaycount2.PCSFailed = TextBox_PCSFailed.Text

        Todaycount.ScrewFailed1 = ScrewFailed1.Text
        Todaycount.ScrewFailed2 = ScrewFailed2.Text
        Todaycount.ScrewFailed3 = ScrewFailed3.Text
        Todaycount.ScrewFailed4 = ScrewFailed4.Text
        Todaycount.ScrewFailed5 = ScrewFailed5.Text
        Todaycount.ScrewFailed6 = ScrewFailed6.Text
        Todaycount.ScrewFailed7 = ScrewFailed7.Text
        Todaycount.ScrewFailed8 = ScrewFailed8.Text
        Todaycount.ScrewFailed9 = ScrewFailed9.Text
        Todaycount.ScrewFailed10 = ScrewFailed10.Text

        FrmMain.ScrewFailed1.Text = ScrewFailed1.Text
        FrmMain.ScrewFailed2.Text = ScrewFailed2.Text
        FrmMain.ScrewFailed3.Text = ScrewFailed3.Text
        FrmMain.ScrewFailed4.Text = ScrewFailed4.Text
        FrmMain.ScrewFailed5.Text = ScrewFailed5.Text
        FrmMain.ScrewFailed6.Text = ScrewFailed6.Text
        FrmMain.ScrewFailed7.Text = ScrewFailed7.Text
        FrmMain.ScrewFailed8.Text = ScrewFailed8.Text
        FrmMain.ScrewFailed9.Text = ScrewFailed9.Text
        FrmMain.ScrewFailed10.Text = ScrewFailed10.Text



        '''''''''''''''
        Todaycount3.SkipFailed1 = SkipFailed1.Text
        Todaycount3.SkipFailed2 = SkipFailed2.Text
        Todaycount3.SkipFailed3 = SkipFailed3.Text
        Todaycount3.SkipFailed4 = SkipFailed4.Text
        Todaycount3.SkipFailed5 = SkipFailed5.Text
        Todaycount3.SkipFailed6 = SkipFailed6.Text
        Todaycount3.SkipFailed7 = SkipFailed7.Text
        Todaycount3.SkipFailed8 = SkipFailed8.Text
        Todaycount3.SkipFailed9 = SkipFailed9.Text
        Todaycount3.SkipFailed10 = SkipFailed10.Text

        FrmMain.SkipFailed1.Text = SkipFailed1.Text
        FrmMain.SkipFailed2.Text = SkipFailed2.Text
        FrmMain.SkipFailed3.Text = SkipFailed3.Text
        FrmMain.SkipFailed4.Text = SkipFailed4.Text
        FrmMain.SkipFailed5.Text = SkipFailed5.Text
        FrmMain.SkipFailed6.Text = SkipFailed6.Text
        FrmMain.SkipFailed7.Text = SkipFailed7.Text
        FrmMain.SkipFailed8.Text = SkipFailed8.Text
        FrmMain.SkipFailed9.Text = SkipFailed9.Text
        FrmMain.SkipFailed10.Text = SkipFailed10.Text


        Me.Close()
    End Sub

    Private Sub FrmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Todaycount.NGCount
        TextBox2.Text = Todaycount.SCount
        Me.Width = 447
        Me.Height = 340
        TextBox5.Text = FrmMain.TextBox5.Text
        TextBox_PCSFailed.Text = Todaycount2.PCSFailed.ToString
        ScrewFailed1.Text = Todaycount.ScrewFailed1.ToString
        ScrewFailed2.Text = Todaycount.ScrewFailed2.ToString
        ScrewFailed3.Text = Todaycount.ScrewFailed3.ToString
        ScrewFailed4.Text = Todaycount.ScrewFailed4.ToString
        ScrewFailed5.Text = Todaycount.ScrewFailed5.ToString
        ScrewFailed6.Text = Todaycount.ScrewFailed6.ToString
        ScrewFailed7.Text = Todaycount.ScrewFailed7.ToString
        ScrewFailed8.Text = Todaycount.ScrewFailed8.ToString
        ScrewFailed9.Text = Todaycount.ScrewFailed9.ToString
        ScrewFailed10.Text = Todaycount.ScrewFailed10.ToString

        '''''''''''''''
        SkipFailed1.Text = Todaycount3.SkipFailed1.ToString
        SkipFailed2.Text = Todaycount3.SkipFailed2.ToString
        SkipFailed3.Text = Todaycount3.SkipFailed3.ToString
        SkipFailed4.Text = Todaycount3.SkipFailed4.ToString
        SkipFailed5.Text = Todaycount3.SkipFailed5.ToString
        SkipFailed6.Text = Todaycount3.SkipFailed6.ToString
        SkipFailed7.Text = Todaycount3.SkipFailed7.ToString
        SkipFailed8.Text = Todaycount3.SkipFailed8.ToString
        SkipFailed9.Text = Todaycount3.SkipFailed9.ToString
        SkipFailed10.Text = Todaycount3.SkipFailed10.ToString

    End Sub

    Private Sub TxtResult1_TextChanged(sender As Object, e As EventArgs) Handles TxtResult1.TextChanged

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "lnlon-zdh" Then
            Me.Width = 1029
            Me.Height = 395
        End If
    End Sub
End Class